From 30b786c3406d857beb1f4a23d243681b25504923 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 12 Nov 1993 23:35:39 +0000 Subject: [PATCH] (fill-individual-paragraphs): Fix skipping headers of yanked message. --- lisp/textmodes/fill.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index b5017b22a9d..bbe44f3d6fe 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -327,7 +327,9 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (beginning-of-line) (if mailp (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) - (search-forward "\n\n" nil 'move))) + (if (looking-at "[ \t]*[^ \t\n]*:") + (search-forward "\n\n" nil 'move) + (forward-line 1)))) (narrow-to-region (point) max) ;; Loop over paragraphs. (while (progn (skip-chars-forward " \t\n") (not (eobp))) -- 2.30.2